
set
it /it1*it20/
out /out1*out12/
t /t1*t25/
;


parameter

figure_FECGE_LUMP(*,*)
figure_BCGE_LUMP(*,*)
figure_HWC_LUMP(*,*)
figure_FECGE_TAUL(*,*)
figure_BCGE_TAUL(*,*)
figure_HWC_TAUL(*,*)
figure_HWC_LUMP_T(*,*,*)
figure_HWC_LUMP_BRR(*,*)
figure_HWC_LUMP_FH(*,*)
figure1
figure2a
figure2b
figure3a
figure3b
figure4
figure5
figure6
figure7
;

execute_loadpoint "figure_JAERE_FECGE_LUMP.gdx"     figure_FECGE_LUMP;
execute_loadpoint "figure_JAERE_BCGE_LUMP.gdx"     figure_BCGE_LUMP;
execute_loadpoint "figure_JAERE_HWC_LUMP.gdx"     figure_HWC_LUMP;
execute_loadpoint "figure_JAERE_FECGE_TAUL.gdx"     figure_FECGE_TAUL;
execute_loadpoint "figure_JAERE_BCGE_TAUL.gdx"     figure_BCGE_TAUL;
execute_loadpoint "figure_JAERE_HWC_TAUL.gdx"     figure_HWC_TAUL;
execute_loadpoint "figure_JAERE_HWC_LUMP_T.gdx"     figure_HWC_LUMP_T;
execute_loadpoint "figure_JAERE_HWC_LUMP_BRR.gdx"     figure_HWC_LUMP_BRR;
execute_loadpoint "figure_JAERE_HWC_LUMP_FH.gdx"     figure_HWC_LUMP_FH;

figure1('FE','Emissions',it) = figure_FECGE_LUMP('out1',it);
figure1('FE','Price',it) = figure_FECGE_LUMP('out2',it);
figure1('Balistreri','Emissions',it) = figure_BCGE_LUMP('out1',it);
figure1('Balistreri','Price',it) = figure_BCGE_LUMP('out2',it);
figure1('Search','Emissions',it) = figure_HWC_LUMP('out1',it);
figure1('Search','Price',it) = figure_HWC_LUMP('out2',it);


figure2a('FE','Emissions',it) = figure_FECGE_LUMP('out1',it);
figure2a('FE','Hours',it) = figure_FECGE_LUMP('out4',it);
figure2a('Balistreri','Emissions',it) = figure_BCGE_LUMP('out1',it);
figure2a('Balistreri','Hours',it) = figure_BCGE_LUMP('out4',it);
figure2a('Search','Emissions',it) = figure_HWC_LUMP('out1',it);
figure2a('Search','Hours',it) = figure_HWC_LUMP('out4',it);

figure2b('FE','Emissions',it) = figure_FECGE_LUMP('out1',it);
figure2b('FE','Urate',it) = figure_FECGE_LUMP('out3',it);
figure2b('Balistreri','Emissions',it) = figure_BCGE_LUMP('out1',it);
figure2b('Balistreri','Urate',it) = figure_BCGE_LUMP('out3',it);
figure2b('Search','Emissions',it) = figure_HWC_LUMP('out1',it);
figure2b('Search','Urate',it) = figure_HWC_LUMP('out3',it);


figure3a('FE','Emissions',it) = figure_FECGE_TAUL('out1',it);
figure3a('FE','Hours',it) = figure_FECGE_TAUL('out4',it);
figure3a('Balistreri','Emissions',it) = figure_BCGE_TAUL('out1',it);
figure3a('Balistreri','Hours',it) = figure_BCGE_TAUL('out4',it);
figure3a('Search','Emissions',it) = figure_HWC_TAUL('out1',it);
figure3a('Search','Hours',it) = figure_HWC_TAUL('out4',it);

figure3b('FE','Emissions',it) = figure_FECGE_TAUL('out1',it);
figure3b('FE','Urate',it) = figure_FECGE_TAUL('out3',it);
figure3b('Balistreri','Emissions',it) = figure_BCGE_TAUL('out1',it);
figure3b('Balistreri','Urate',it) = figure_BCGE_TAUL('out3',it);
figure3b('Search','Emissions',it) = figure_HWC_TAUL('out1',it);
figure3b('Search','Urate',it) = figure_HWC_TAUL('out3',it);


figure4('FE','Emissions',it) = figure_FECGE_TAUL('out1',it);
figure4('FE','DeltaUrate',it) = figure_FECGE_TAUL('out3',it) - figure_FECGE_LUMP('out3',it);
figure4('Balistreri','Emissions',it) = figure_FECGE_TAUL('out1',it);
figure4('Balistreri','DeltaUrate',it) = figure_BCGE_TAUL('out3',it) - figure_BCGE_LUMP('out3',it);
figure4('Search','Emissions',it) = figure_FECGE_TAUL('out1',it);
figure4('Search','DeltaUrate',it) = figure_HWC_TAUL('out3',it) - figure_HWC_LUMP('out3',it);


figure5('Labor Demand',t) = figure_HWC_LUMP_T('out2',t,'it4');
figure5('Unemployment',t) = figure_HWC_LUMP_T('out1',t,'it4');


figure6('Search','Emissions',it) = figure_HWC_LUMP('out1',it);
figure6('Search','Urate',it) = figure_HWC_LUMP('out3',it);
figure6('Search - Fixed RR','Emissions',it) = figure_HWC_LUMP_BRR('out1',it);
figure6('Search - Fixed RR','Urate',it) = figure_HWC_LUMP_BRR('out3',it);


figure7('Search','Emissions',it) = figure_HWC_LUMP('out1',it);
figure7('Search','Urate',it) = figure_HWC_LUMP('out3',it);
figure7('Search - Fixed Hours','Emissions',it) = figure_HWC_LUMP_FH('out1',it);
figure7('Search - Fixed Hours','Urate',it) = figure_HWC_LUMP_FH('out3',it);


execute_unload "figures_HWC_JAERE.gdx"
figure1
figure2a
figure2b
figure3a
figure3b
figure4
figure5
figure6
figure7
;
execute 'gdxxrw.exe figures_HWC_JAERE.gdx  par=figure1 rng=figure1!'
execute 'gdxxrw.exe figures_HWC_JAERE.gdx  par=figure2a rng=figure2a!'
execute 'gdxxrw.exe figures_HWC_JAERE.gdx  par=figure2b rng=figure2b!'
execute 'gdxxrw.exe figures_HWC_JAERE.gdx  par=figure3a rng=figure3a!'
execute 'gdxxrw.exe figures_HWC_JAERE.gdx  par=figure3b rng=figure3b!'
execute 'gdxxrw.exe figures_HWC_JAERE.gdx  par=figure4 rng=figure4!'
execute 'gdxxrw.exe figures_HWC_JAERE.gdx  par=figure5 rng=figure5!'
execute 'gdxxrw.exe figures_HWC_JAERE.gdx  par=figure6 rng=figure6!'
execute 'gdxxrw.exe figures_HWC_JAERE.gdx  par=figure7 rng=figure7!'


display
figure1
figure2a
figure2b
figure3a
figure3b
figure4
figure5
figure6
figure7
;